#分别使用repeat,while,for循环语句，打印从2001年到2022年中的闰年
leap<-function(x){
    if(x%%4==0){
        if(((x%%100==0)&(x%%400==0))|(x%%100!=0))
            return(TRUE) else
                return(FALSE)
        } else
            return(FALSE)
}

#repeat循环
cnt=2000
repeat {
    cnt <- cnt+1
    if(leap(cnt)==TRUE){
        print(cnt)
    }
    if(cnt > 2022) {
        break
  }
}


#while循环

cnt <- 2000

while (cnt < 2023) {
    if(leap(cnt)==TRUE){
        print(cnt)
    }
    
    cnt = cnt + 1
}

#for循环
for ( cnt in 2001:2022) {
    if(leap(cnt)==TRUE){
        print(cnt)
    }
}